﻿Imports omen02
Public Class ActualizarProducto


    Public InsertarProducto As InsertarProducto


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Visible = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim negocio As New ProductoNegocio
        Try
            If lblId1.Text <> "" Then
                negocio.actualizar(lblId1.Text, Me.idventaregistrarproducto.Text, Me.precioregistrarproducto.Text, Me.marcaregistrarproducto.Text, Me.modeloregistrarproducto.Text, Me.serieregistrarproducto.Text, Me.cantidadregistrarproducto.Text, Me.descripcionregistrarproducto.Text, Me.tiporegistrarproducto.Text, Me.longitudregistrarproducto.Text)
            Else
                negocio.insertar(Me.idventaregistrarproducto.Text, Me.precioregistrarproducto.Text, Me.marcaregistrarproducto.Text, Me.modeloregistrarproducto.Text, Me.serieregistrarproducto.Text, Me.cantidadregistrarproducto.Text, Me.descripcionregistrarproducto.Text, Me.tiporegistrarproducto.Text, Me.longitudregistrarproducto.Text)
            End If

            Me.InsertarProducto.dgvpaquete.DataSource = ""

            Me.Close()
        Catch ex As Exception
            lblMensaje.Text = "Se actualizó el producto"
        End Try

        'Limpiar cajitas de texto desues de ingresar datos
        idventaregistrarproducto.Clear()
        precioregistrarproducto.Clear()
        marcaregistrarproducto.Clear()
        modeloregistrarproducto.Clear()
        serieregistrarproducto.Clear()
        cantidadregistrarproducto.Clear()
        descripcionregistrarproducto.Clear()
        tiporegistrarproducto.Clear()
        longitudregistrarproducto.Clear()
    End Sub

    Private Sub GroupBox8_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox8.Enter

    End Sub
End Class